home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Technology Seed / Jan. '98 ATS.toast / QuickTime™ 3.0b11 / QTPublicInterfaces / AIncludes / Components.a next >
Encoding:
Text File  |  1998-01-12  |  26.3 KB  |  904 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Components.a
  3. ;
  4. ;    Contains:    QuickTime interfaces
  5. ;
  6. ;    Version:    Technology:    
  7. ;                Release:    QuickTime 3.0 Beta
  8. ;
  9. ;    Copyright:    © 1990-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  19. __COMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  25.     include 'MacTypes.a'
  26.     ENDIF
  27.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  28.     include 'MixedMode.a'
  29.     ENDIF
  30.     IF &TYPE('__CODEFRAGMENTS__') = 'UNDEFINED' THEN
  31.     include 'CodeFragments.a'
  32.     ENDIF
  33.  
  34.  
  35. kAppleManufacturer                EQU        'appl'                ; Apple supplied components 
  36. kComponentResourceType            EQU        'thng'                ; a components resource type 
  37. kComponentAliasResourceType        EQU        'thga'                ; component alias resource type 
  38.  
  39. kAnyComponentType                EQU        0
  40. kAnyComponentSubType            EQU        0
  41. kAnyComponentManufacturer        EQU        0
  42. kAnyComponentFlagsMask            EQU        0
  43.  
  44. cmpWantsRegisterMessage            EQU        $80000000
  45. cmpIsComponentAlias                EQU        $10000000
  46.  
  47. kComponentOpenSelect            EQU        -1                    ; ComponentInstance for this open 
  48. kComponentCloseSelect            EQU        -2                    ; ComponentInstance for this close 
  49. kComponentCanDoSelect            EQU        -3                    ; selector # being queried 
  50. kComponentVersionSelect            EQU        -4                    ; no params 
  51. kComponentRegisterSelect        EQU        -5                    ; no params 
  52. kComponentTargetSelect            EQU        -6                    ; ComponentInstance for top of call chain 
  53. kComponentUnregisterSelect        EQU        -7                    ; no params 
  54. kComponentGetMPWorkFunctionSelect EQU    -8                    ; some params 
  55. ;  Component Resource Extension flags 
  56.  
  57. componentDoAutoVersion            EQU        $01
  58. componentWantsUnregister        EQU        $02
  59. componentAutoVersionIncludeFlags EQU    $04
  60. componentHasMultiplePlatforms    EQU        $08
  61. componentLoadResident            EQU        $10
  62.  
  63.  
  64. ;  Set Default Component flags 
  65.  
  66. defaultComponentIdentical        EQU        0
  67. defaultComponentAnyFlags        EQU        1
  68. defaultComponentAnyManufacturer    EQU        2
  69. defaultComponentAnySubType        EQU        4
  70. defaultComponentAnyFlagsAnyManufacturer EQU 3
  71. defaultComponentAnyFlagsAnyManufacturerAnySubType EQU 7
  72. ;  RegisterComponentResource flags 
  73.  
  74. registerComponentGlobal            EQU        1
  75. registerComponentNoDuplicates    EQU        2
  76. registerComponentAfterExisting    EQU        4
  77. registerComponentAliasesOnly    EQU        8
  78.  
  79.  
  80. unresolvedComponentDLLErr        EQU        -3004
  81. ComponentDescription    RECORD 0
  82. componentType             ds.l    1                ; offset: $0 (0)        ;  A unique 4-byte code indentifying the command set 
  83. componentSubType         ds.l    1                ; offset: $4 (4)        ;  Particular flavor of this instance 
  84. componentManufacturer     ds.l    1                ; offset: $8 (8)        ;  Vendor indentification 
  85. componentFlags             ds.l    1                ; offset: $C (12)        ;  8 each for Component,Type,SubType,Manuf/revision 
  86. componentFlagsMask         ds.l    1                ; offset: $10 (16)        ;  Mask for specifying which flags to consider in search, zero during registration 
  87. sizeof                     EQU *                    ; size:   $14 (20)
  88.                         ENDR
  89.  
  90. ResourceSpec            RECORD 0
  91. resType                     ds.l    1                ; offset: $0 (0)        ;  4-byte code     
  92. resID                     ds.w    1                ; offset: $4 (4)        ;               
  93. sizeof                     EQU *                    ; size:   $6 (6)
  94.                         ENDR
  95. ComponentResource        RECORD 0
  96. cd                         ds        ComponentDescription ; offset: $0 (0)    ;  Registration parameters 
  97. component                 ds        ResourceSpec    ; offset: $14 (20)        ;  resource where Component code is found 
  98. componentName             ds        ResourceSpec    ; offset: $1A (26)        ;  name string resource 
  99. componentInfo             ds        ResourceSpec    ; offset: $20 (32)        ;  info string resource 
  100. componentIcon             ds        ResourceSpec    ; offset: $26 (38)        ;  icon resource 
  101. sizeof                     EQU *                    ; size:   $2C (44)
  102.                         ENDR
  103. ; typedef struct ComponentResource *    ComponentResourcePtr
  104.  
  105. ; typedef ComponentResourcePtr *        ComponentResourceHandle
  106.  
  107. ComponentPlatformInfo    RECORD 0
  108. componentFlags             ds.l    1                ; offset: $0 (0)        ;  flags of Component 
  109. component                 ds        ResourceSpec    ; offset: $4 (4)        ;  resource where Component code is found 
  110. platformType             ds.w    1                ; offset: $A (10)        ;  gestaltSysArchitecture result 
  111. sizeof                     EQU *                    ; size:   $C (12)
  112.                         ENDR
  113. ComponentResourceExtension RECORD 0
  114. componentVersion         ds.l    1                ; offset: $0 (0)        ;  version of Component 
  115. componentRegisterFlags     ds.l    1                ; offset: $4 (4)        ;  flags for registration 
  116. componentIconFamily         ds.w    1                ; offset: $8 (8)        ;  resource id of Icon Family 
  117. sizeof                     EQU *                    ; size:   $A (10)
  118.                         ENDR
  119. ComponentPlatformInfoArray RECORD 0
  120. count                     ds.l    1                ; offset: $0 (0)
  121. platformArray             ds        ComponentPlatformInfo ; offset: $4 (4) <-- really an array of length one
  122. sizeof                     EQU *                    ; size:   $10 (16)
  123.                         ENDR
  124. ExtComponentResource    RECORD 0
  125. cd                         ds        ComponentDescription ; offset: $0 (0)    ;  registration parameters 
  126. component                 ds        ResourceSpec    ; offset: $14 (20)        ;  resource where Component code is found 
  127. componentName             ds        ResourceSpec    ; offset: $1A (26)        ;  name string resource 
  128. componentInfo             ds        ResourceSpec    ; offset: $20 (32)        ;  info string resource 
  129. componentIcon             ds        ResourceSpec    ; offset: $26 (38)        ;  icon resource 
  130. componentVersion         ds.l    1                ; offset: $2C (44)        ;  version of Component 
  131. componentRegisterFlags     ds.l    1                ; offset: $30 (48)        ;  flags for registration 
  132. componentIconFamily         ds.w    1                ; offset: $34 (52)        ;  resource id of Icon Family 
  133. count                     ds.l    1                ; offset: $36 (54)        ;  elements in platformArray 
  134. platformArray             ds        ComponentPlatformInfo ; offset: $3A (58) <-- really an array of length one
  135. sizeof                     EQU *                    ; size:   $46 (70)
  136.                         ENDR
  137. ComponentAliasResource    RECORD 0
  138. cr                         ds        ComponentResource ; offset: $0 (0)        ;  Registration parameters 
  139. aliasCD                     ds        ComponentDescription ; offset: $2C (44) ;  component alias description 
  140. sizeof                     EQU *                    ; size:   $40 (64)
  141.                         ENDR
  142. ;   Structure received by Component:        
  143. ComponentParameters        RECORD 0
  144. flags                     ds.b    1                ; offset: $0 (0)        ;  call modifiers: sync/async, deferred, immed, etc 
  145. paramSize                 ds.b    1                ; offset: $1 (1)        ;  size in bytes of actual parameters passed to this call 
  146. what                     ds.w    1                ; offset: $2 (2)        ;  routine selector, negative for Component management calls 
  147. params                     ds.l    1                ; offset: $4 (4) <-- really an array of length one ;  actual parameters for the indicated routine 
  148. sizeof                     EQU *                    ; size:   $8 (8)
  149.                         ENDR
  150. ComponentRecord            RECORD 0
  151. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  152. sizeof                     EQU *                    ; size:   $4 (4)
  153.                         ENDR
  154. ; typedef struct ComponentRecord *        Component
  155.  
  156. ComponentInstanceRecord    RECORD 0
  157. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  158. sizeof                     EQU *                    ; size:   $4 (4)
  159.                         ENDR
  160. ; typedef struct ComponentInstanceRecord * ComponentInstance
  161.  
  162. RegisteredComponentRecord RECORD 0
  163. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  164. sizeof                     EQU *                    ; size:   $4 (4)
  165.                         ENDR
  166. ; typedef struct RegisteredComponentRecord * RegisteredComponentPtr
  167.  
  168. RegisteredComponentInstanceRecord RECORD 0
  169. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  170. sizeof                     EQU *                    ; size:   $4 (4)
  171.                         ENDR
  172. ; typedef struct RegisteredComponentInstanceRecord * RegisteredComponentInstancePtr
  173.  
  174. ; typedef long                             ComponentResult
  175.  
  176.  
  177. platform68k                        EQU        1                    ; platform type (response from gestaltSysArchitecture) 
  178. platformPowerPC                    EQU        2
  179. platformInterpreted                EQU        3
  180. platformWin32                    EQU        4
  181.  
  182. mpWorkFlagDoWork                EQU        $01
  183. mpWorkFlagDoCompletion            EQU        $02
  184. mpWorkFlagCopyWorkBlock            EQU        $04
  185. mpWorkFlagDontBlock                EQU        $08
  186. mpWorkFlagGetProcessorCount        EQU        $10
  187. mpWorkFlagGetIsRunning            EQU        $40
  188. ComponentMPWorkFunctionHeaderRecord RECORD 0
  189. headerSize                 ds.l    1                ; offset: $0 (0)
  190. recordSize                 ds.l    1                ; offset: $4 (4)
  191. workFlags                 ds.l    1                ; offset: $8 (8)
  192. processorCount             ds.w    1                ; offset: $C (12)
  193. unused                     ds.b    1                ; offset: $E (14)
  194. isRunning                 ds.b    1                ; offset: $F (15)
  195. sizeof                     EQU *                    ; size:   $10 (16)
  196.                         ENDR
  197. ; typedef struct ComponentMPWorkFunctionHeaderRecord * ComponentMPWorkFunctionHeaderRecordPtr
  198.  
  199. ; 
  200. ;    The parameter list for each ComponentFunction is unique. It is 
  201. ;    therefore up to users to create the appropriate procInfo for their 
  202. ;    own ComponentFunctions where necessary.
  203. ;
  204.  
  205. ; typedef UniversalProcPtr                 ComponentFunctionUPP
  206.  
  207.  
  208. ; ********************************************************
  209. ;*                                                        *
  210. ;*                  APPLICATION LEVEL CALLS                    *
  211. ;*                                                        *
  212. ;*******************************************************
  213.  
  214. ; ********************************************************
  215. ;* Component Database Add, Delete, and Query Routines 
  216. ;*******************************************************
  217.  
  218. ;
  219. ; pascal Component RegisterComponent(ComponentDescription *cd, ComponentRoutineUPP componentEntryPoint, short global, Handle componentName, Handle componentInfo, Handle componentIcon)
  220. ;
  221.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  222.         Macro
  223.         _RegisterComponent
  224.             moveq               #1,D0
  225.             dc.w                $A82A
  226.         EndM
  227.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  228.         IMPORT_CFM_FUNCTION RegisterComponent
  229.     ENDIF
  230.  
  231. ;
  232. ; pascal Component RegisterComponentResource(ComponentResourceHandle cr, short global)
  233. ;
  234.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  235.         Macro
  236.         _RegisterComponentResource
  237.             moveq               #18,D0
  238.             dc.w                $A82A
  239.         EndM
  240.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  241.         IMPORT_CFM_FUNCTION RegisterComponentResource
  242.     ENDIF
  243.  
  244. ;
  245. ; pascal OSErr UnregisterComponent(Component aComponent)
  246. ;
  247.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  248.         Macro
  249.         _UnregisterComponent
  250.             moveq               #2,D0
  251.             dc.w                $A82A
  252.         EndM
  253.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  254.         IMPORT_CFM_FUNCTION UnregisterComponent
  255.     ENDIF
  256.  
  257. ;
  258. ; pascal Component FindNextComponent(Component aComponent, ComponentDescription *looking)
  259. ;
  260.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  261.         Macro
  262.         _FindNextComponent
  263.             moveq               #4,D0
  264.             dc.w                $A82A
  265.         EndM
  266.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  267.         IMPORT_CFM_FUNCTION FindNextComponent
  268.     ENDIF
  269.  
  270. ;
  271. ; pascal long CountComponents(ComponentDescription *looking)
  272. ;
  273.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  274.         Macro
  275.         _CountComponents
  276.             moveq               #3,D0
  277.             dc.w                $A82A
  278.         EndM
  279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  280.         IMPORT_CFM_FUNCTION CountComponents
  281.     ENDIF
  282.  
  283. ;
  284. ; pascal OSErr GetComponentInfo(Component aComponent, ComponentDescription *cd, Handle componentName, Handle componentInfo, Handle componentIcon)
  285. ;
  286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  287.         Macro
  288.         _GetComponentInfo
  289.             moveq               #5,D0
  290.             dc.w                $A82A
  291.         EndM
  292.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  293.         IMPORT_CFM_FUNCTION GetComponentInfo
  294.     ENDIF
  295.  
  296. ;
  297. ; pascal long GetComponentListModSeed(void )
  298. ;
  299.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  300.         Macro
  301.         _GetComponentListModSeed
  302.             moveq               #6,D0
  303.             dc.w                $A82A
  304.         EndM
  305.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  306.         IMPORT_CFM_FUNCTION GetComponentListModSeed
  307.     ENDIF
  308.  
  309. ;
  310. ; pascal long GetComponentTypeModSeed(OSType componentType)
  311. ;
  312.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  313.         Macro
  314.         _GetComponentTypeModSeed
  315.             moveq               #44,D0
  316.             dc.w                $A82A
  317.         EndM
  318.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  319.         IMPORT_CFM_FUNCTION GetComponentTypeModSeed
  320.     ENDIF
  321.  
  322. ; ********************************************************
  323. ;* Component Instance Allocation and dispatch routines 
  324. ;*******************************************************
  325.  
  326. ;
  327. ; pascal OSErr OpenAComponent(Component aComponent, ComponentInstance *ci)
  328. ;
  329.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  330.         Macro
  331.         _OpenAComponent
  332.             moveq               #45,D0
  333.             dc.w                $A82A
  334.         EndM
  335.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  336.         IMPORT_CFM_FUNCTION OpenAComponent
  337.     ENDIF
  338.  
  339. ;
  340. ; pascal ComponentInstance OpenComponent(Component aComponent)
  341. ;
  342.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  343.         Macro
  344.         _OpenComponent
  345.             moveq               #7,D0
  346.             dc.w                $A82A
  347.         EndM
  348.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  349.         IMPORT_CFM_FUNCTION OpenComponent
  350.     ENDIF
  351.  
  352. ;
  353. ; pascal OSErr CloseComponent(ComponentInstance aComponentInstance)
  354. ;
  355.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  356.         Macro
  357.         _CloseComponent
  358.             moveq               #8,D0
  359.             dc.w                $A82A
  360.         EndM
  361.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  362.         IMPORT_CFM_FUNCTION CloseComponent
  363.     ENDIF
  364.  
  365. ;
  366. ; pascal OSErr GetComponentInstanceError(ComponentInstance aComponentInstance)
  367. ;
  368.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  369.         Macro
  370.         _GetComponentInstanceError
  371.             moveq               #10,D0
  372.             dc.w                $A82A
  373.         EndM
  374.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  375.         IMPORT_CFM_FUNCTION GetComponentInstanceError
  376.     ENDIF
  377.  
  378. ; ********************************************************
  379. ;*                                                        *
  380. ;*                      CALLS MADE BY COMPONENTS              *
  381. ;*                                                        *
  382. ;*******************************************************
  383.  
  384. ; ********************************************************
  385. ;* Component Management routines
  386. ;*******************************************************
  387.  
  388. ;
  389. ; pascal void SetComponentInstanceError(ComponentInstance aComponentInstance, OSErr theError)
  390. ;
  391.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  392.         Macro
  393.         _SetComponentInstanceError
  394.             moveq               #11,D0
  395.             dc.w                $A82A
  396.         EndM
  397.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  398.         IMPORT_CFM_FUNCTION SetComponentInstanceError
  399.     ENDIF
  400.  
  401. ;
  402. ; pascal long GetComponentRefcon(Component aComponent)
  403. ;
  404.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  405.         Macro
  406.         _GetComponentRefcon
  407.             moveq               #16,D0
  408.             dc.w                $A82A
  409.         EndM
  410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  411.         IMPORT_CFM_FUNCTION GetComponentRefcon
  412.     ENDIF
  413.  
  414. ;
  415. ; pascal void SetComponentRefcon(Component aComponent, long theRefcon)
  416. ;
  417.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  418.         Macro
  419.         _SetComponentRefcon
  420.             moveq               #17,D0
  421.             dc.w                $A82A
  422.         EndM
  423.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  424.         IMPORT_CFM_FUNCTION SetComponentRefcon
  425.     ENDIF
  426.  
  427. ;
  428. ; pascal short OpenComponentResFile(Component aComponent)
  429. ;
  430.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  431.         Macro
  432.         _OpenComponentResFile
  433.             moveq               #21,D0
  434.             dc.w                $A82A
  435.         EndM
  436.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  437.         IMPORT_CFM_FUNCTION OpenComponentResFile
  438.     ENDIF
  439.  
  440. ;
  441. ; pascal OSErr OpenAComponentResFile(Component aComponent, short *resRef)
  442. ;
  443.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  444.         Macro
  445.         _OpenAComponentResFile
  446.             moveq               #47,D0
  447.             dc.w                $A82A
  448.         EndM
  449.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  450.         IMPORT_CFM_FUNCTION OpenAComponentResFile
  451.     ENDIF
  452.  
  453. ;
  454. ; pascal OSErr CloseComponentResFile(short refnum)
  455. ;
  456.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  457.         Macro
  458.         _CloseComponentResFile
  459.             moveq               #24,D0
  460.             dc.w                $A82A
  461.         EndM
  462.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  463.         IMPORT_CFM_FUNCTION CloseComponentResFile
  464.     ENDIF
  465.  
  466. ;
  467. ; pascal OSErr GetComponentResource(Component aComponent, OSType resType, short resID, Handle *theResource)
  468. ;
  469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  470.         Macro
  471.         _GetComponentResource
  472.             moveq               #53,D0
  473.             dc.w                $A82A
  474.         EndM
  475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  476.         IMPORT_CFM_FUNCTION GetComponentResource
  477.     ENDIF
  478.  
  479. ;
  480. ; pascal OSErr GetComponentIndString(Component aComponent, Str255 theString, short strListID, short index)
  481. ;
  482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  483.         Macro
  484.         _GetComponentIndString
  485.             moveq               #54,D0
  486.             dc.w                $A82A
  487.         EndM
  488.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  489.         IMPORT_CFM_FUNCTION GetComponentIndString
  490.     ENDIF
  491.  
  492. ;
  493. ; pascal Component ResolveComponentAlias(Component aComponent)
  494. ;
  495.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  496.         Macro
  497.         _ResolveComponentAlias
  498.             moveq               #32,D0
  499.             dc.w                $A82A
  500.         EndM
  501.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  502.         IMPORT_CFM_FUNCTION ResolveComponentAlias
  503.     ENDIF
  504.  
  505. ; ********************************************************
  506. ;* Component Instance Management routines
  507. ;*******************************************************
  508.  
  509. ;
  510. ; pascal Handle GetComponentInstanceStorage(ComponentInstance aComponentInstance)
  511. ;
  512.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  513.         Macro
  514.         _GetComponentInstanceStorage
  515.             moveq               #12,D0
  516.             dc.w                $A82A
  517.         EndM
  518.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  519.         IMPORT_CFM_FUNCTION GetComponentInstanceStorage
  520.     ENDIF
  521.  
  522. ;
  523. ; pascal void SetComponentInstanceStorage(ComponentInstance aComponentInstance, Handle theStorage)
  524. ;
  525.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  526.         Macro
  527.         _SetComponentInstanceStorage
  528.             moveq               #13,D0
  529.             dc.w                $A82A
  530.         EndM
  531.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  532.         IMPORT_CFM_FUNCTION SetComponentInstanceStorage
  533.     ENDIF
  534.  
  535. ;
  536. ; pascal long GetComponentInstanceA5(ComponentInstance aComponentInstance)
  537. ;
  538.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  539.         Macro
  540.         _GetComponentInstanceA5
  541.             moveq               #14,D0
  542.             dc.w                $A82A
  543.         EndM
  544.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  545.         IMPORT_CFM_FUNCTION GetComponentInstanceA5
  546.     ENDIF
  547.  
  548. ;
  549. ; pascal void SetComponentInstanceA5(ComponentInstance aComponentInstance, long theA5)
  550. ;
  551.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  552.         Macro
  553.         _SetComponentInstanceA5
  554.             moveq               #15,D0
  555.             dc.w                $A82A
  556.         EndM
  557.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  558.         IMPORT_CFM_FUNCTION SetComponentInstanceA5
  559.     ENDIF
  560.  
  561. ;
  562. ; pascal long CountComponentInstances(Component aComponent)
  563. ;
  564.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  565.         Macro
  566.         _CountComponentInstances
  567.             moveq               #19,D0
  568.             dc.w                $A82A
  569.         EndM
  570.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  571.         IMPORT_CFM_FUNCTION CountComponentInstances
  572.     ENDIF
  573.  
  574. ;  useful helper routines for convenient method dispatching 
  575. ;
  576. ; pascal long CallComponentFunction(ComponentParameters *params, ComponentFunctionUPP func)
  577. ;
  578.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  579.         Macro
  580.         _CallComponentFunction
  581.             moveq               #-1,D0
  582.             dc.w                $A82A
  583.         EndM
  584.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  585.         IMPORT_CFM_FUNCTION CallComponentFunction
  586.     ENDIF
  587.  
  588. ;
  589. ; pascal long CallComponentFunctionWithStorage(Handle storage, ComponentParameters *params, ComponentFunctionUPP func)
  590. ;
  591.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  592.         Macro
  593.         _CallComponentFunctionWithStorage
  594.             moveq               #-1,D0
  595.             dc.w                $A82A
  596.         EndM
  597.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  598.         IMPORT_CFM_FUNCTION CallComponentFunctionWithStorage
  599.     ENDIF
  600.  
  601.     IF TARGET_CPU_PPC ** TARGET_OS_MAC THEN
  602. ;
  603. ; pascal long CallComponentFunctionWithStorageProcInfo(Handle storage, ComponentParameters *params, ProcPtr func, long funcProcInfo)
  604. ;
  605.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  606.         IMPORT_CFM_FUNCTION CallComponentFunctionWithStorageProcInfo
  607.     ENDIF
  608.  
  609.     ELSE
  610.     ENDIF
  611. ;
  612. ; pascal long DelegateComponentCall(ComponentParameters *originalParams, ComponentInstance ci)
  613. ;
  614.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  615.         Macro
  616.         _DelegateComponentCall
  617.             moveq               #36,D0
  618.             dc.w                $A82A
  619.         EndM
  620.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  621.         IMPORT_CFM_FUNCTION DelegateComponentCall
  622.     ENDIF
  623.  
  624. ;
  625. ; pascal OSErr SetDefaultComponent(Component aComponent, short flags)
  626. ;
  627.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  628.         Macro
  629.         _SetDefaultComponent
  630.             moveq               #30,D0
  631.             dc.w                $A82A
  632.         EndM
  633.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  634.         IMPORT_CFM_FUNCTION SetDefaultComponent
  635.     ENDIF
  636.  
  637. ;
  638. ; pascal ComponentInstance OpenDefaultComponent(OSType componentType, OSType componentSubType)
  639. ;
  640.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  641.         Macro
  642.         _OpenDefaultComponent
  643.             moveq               #33,D0
  644.             dc.w                $A82A
  645.         EndM
  646.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  647.         IMPORT_CFM_FUNCTION OpenDefaultComponent
  648.     ENDIF
  649.  
  650. ;
  651. ; pascal OSErr OpenADefaultComponent(OSType componentType, OSType componentSubType, ComponentInstance *ci)
  652. ;
  653.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  654.         Macro
  655.         _OpenADefaultComponent
  656.             moveq               #46,D0
  657.             dc.w                $A82A
  658.         EndM
  659.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  660.         IMPORT_CFM_FUNCTION OpenADefaultComponent
  661.     ENDIF
  662.  
  663. ;
  664. ; pascal Component CaptureComponent(Component capturedComponent, Component capturingComponent)
  665. ;
  666.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  667.         Macro
  668.         _CaptureComponent
  669.             moveq               #28,D0
  670.             dc.w                $A82A
  671.         EndM
  672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  673.         IMPORT_CFM_FUNCTION CaptureComponent
  674.     ENDIF
  675.  
  676. ;
  677. ; pascal OSErr UncaptureComponent(Component aComponent)
  678. ;
  679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  680.         Macro
  681.         _UncaptureComponent
  682.             moveq               #29,D0
  683.             dc.w                $A82A
  684.         EndM
  685.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  686.         IMPORT_CFM_FUNCTION UncaptureComponent
  687.     ENDIF
  688.  
  689. ;
  690. ; pascal long RegisterComponentResourceFile(short resRefNum, short global)
  691. ;
  692.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  693.         Macro
  694.         _RegisterComponentResourceFile
  695.             moveq               #20,D0
  696.             dc.w                $A82A
  697.         EndM
  698.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  699.         IMPORT_CFM_FUNCTION RegisterComponentResourceFile
  700.     ENDIF
  701.  
  702. ;
  703. ; pascal OSErr GetComponentIconSuite(Component aComponent, Handle *iconSuite)
  704. ;
  705.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  706.         Macro
  707.         _GetComponentIconSuite
  708.             moveq               #41,D0
  709.             dc.w                $A82A
  710.         EndM
  711.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  712.         IMPORT_CFM_FUNCTION GetComponentIconSuite
  713.     ENDIF
  714.  
  715.  
  716. ; ********************************************************
  717. ;*                                                        *
  718. ;*              Direct calls to the Components                *
  719. ;*                                                        *
  720. ;*******************************************************
  721.  
  722. ;  Old style names
  723.  
  724. ;
  725. ; pascal long ComponentFunctionImplemented(ComponentInstance ci, short ftnNumber)
  726. ;
  727.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  728.         Macro
  729.         _ComponentFunctionImplemented
  730.             move.l              #$0002FFFD,-(sp)
  731.             moveq               #0,D0
  732.             dc.w                $A82A
  733.         EndM
  734.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  735.         IMPORT_CFM_FUNCTION ComponentFunctionImplemented
  736.     ENDIF
  737.  
  738. ;
  739. ; pascal long GetComponentVersion(ComponentInstance ci)
  740. ;
  741.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  742.         Macro
  743.         _GetComponentVersion
  744.             move.l              #$0000FFFC,-(sp)
  745.             moveq               #0,D0
  746.             dc.w                $A82A
  747.         EndM
  748.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  749.         IMPORT_CFM_FUNCTION GetComponentVersion
  750.     ENDIF
  751.  
  752. ;
  753. ; pascal long ComponentSetTarget(ComponentInstance ci, ComponentInstance target)
  754. ;
  755.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  756.         Macro
  757.         _ComponentSetTarget
  758.             move.l              #$0004FFFA,-(sp)
  759.             moveq               #0,D0
  760.             dc.w                $A82A
  761.         EndM
  762.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  763.         IMPORT_CFM_FUNCTION ComponentSetTarget
  764.     ENDIF
  765.  
  766. ;  New style names
  767.  
  768. ;
  769. ; pascal ComponentResult CallComponentOpen(ComponentInstance ci, ComponentInstance self)
  770. ;
  771.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  772.         Macro
  773.         _CallComponentOpen
  774.             move.l              #$0004FFFF,-(sp)
  775.             moveq               #0,D0
  776.             dc.w                $A82A
  777.         EndM
  778.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  779.         IMPORT_CFM_FUNCTION CallComponentOpen
  780.     ENDIF
  781.  
  782. ;
  783. ; pascal ComponentResult CallComponentClose(ComponentInstance ci, ComponentInstance self)
  784. ;
  785.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  786.         Macro
  787.         _CallComponentClose
  788.             move.l              #$0004FFFE,-(sp)
  789.             moveq               #0,D0
  790.             dc.w                $A82A
  791.         EndM
  792.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  793.         IMPORT_CFM_FUNCTION CallComponentClose
  794.     ENDIF
  795.  
  796. ;
  797. ; pascal ComponentResult CallComponentCanDo(ComponentInstance ci, short ftnNumber)
  798. ;
  799.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  800.         Macro
  801.         _CallComponentCanDo
  802.             move.l              #$0002FFFD,-(sp)
  803.             moveq               #0,D0
  804.             dc.w                $A82A
  805.         EndM
  806.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  807.         IMPORT_CFM_FUNCTION CallComponentCanDo
  808.     ENDIF
  809.  
  810. ;
  811. ; pascal ComponentResult CallComponentVersion(ComponentInstance ci)
  812. ;
  813.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  814.         Macro
  815.         _CallComponentVersion
  816.             move.l              #$0000FFFC,-(sp)
  817.             moveq               #0,D0
  818.             dc.w                $A82A
  819.         EndM
  820.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  821.         IMPORT_CFM_FUNCTION CallComponentVersion
  822.     ENDIF
  823.  
  824. ;
  825. ; pascal ComponentResult CallComponentRegister(ComponentInstance ci)
  826. ;
  827.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  828.         Macro
  829.         _CallComponentRegister
  830.             move.l              #$0000FFFB,-(sp)
  831.             moveq               #0,D0
  832.             dc.w                $A82A
  833.         EndM
  834.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  835.         IMPORT_CFM_FUNCTION CallComponentRegister
  836.     ENDIF
  837.  
  838. ;
  839. ; pascal ComponentResult CallComponentTarget(ComponentInstance ci, ComponentInstance target)
  840. ;
  841.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  842.         Macro
  843.         _CallComponentTarget
  844.             move.l              #$0004FFFA,-(sp)
  845.             moveq               #0,D0
  846.             dc.w                $A82A
  847.         EndM
  848.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  849.         IMPORT_CFM_FUNCTION CallComponentTarget
  850.     ENDIF
  851.  
  852. ;
  853. ; pascal ComponentResult CallComponentUnregister(ComponentInstance ci)
  854. ;
  855.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  856.         Macro
  857.         _CallComponentUnregister
  858.             move.l              #$0000FFF9,-(sp)
  859.             moveq               #0,D0
  860.             dc.w                $A82A
  861.         EndM
  862.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  863.         IMPORT_CFM_FUNCTION CallComponentUnregister
  864.     ENDIF
  865.  
  866. ;
  867. ; pascal ComponentResult CallComponentGetMPWorkFunction(ComponentInstance ci, ComponentMPWorkFunctionUPP *workFunction, void **refCon)
  868. ;
  869.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  870.         Macro
  871.         _CallComponentGetMPWorkFunction
  872.             move.l              #$0008FFF8,-(sp)
  873.             moveq               #0,D0
  874.             dc.w                $A82A
  875.         EndM
  876.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  877.         IMPORT_CFM_FUNCTION CallComponentGetMPWorkFunction
  878.     ENDIF
  879.  
  880.  
  881.     IF ¬ TARGET_OS_MAC THEN
  882. ;  
  883. ;        CallComponent is used by ComponentGlue routines to manually call a component function.
  884. ;     
  885.  
  886. ;
  887. ; pascal ComponentResult CallComponent(ComponentInstance ci, ComponentParameters *cp)
  888. ;
  889.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  890.         IMPORT_CFM_FUNCTION CallComponent
  891.     ENDIF
  892.  
  893.     ENDIF
  894. ;  UPP call backs 
  895. ;  ProcInfos 
  896.  
  897.  
  898.  
  899.  
  900.  
  901.  
  902.     ENDIF ; __COMPONENTS__ 
  903.  
  904.